# $Id: Type2.pm 51 2007-11-03 22:00:06Z asksol $
# $Source$
# $Author: asksol $
# $HeadURL: http://class-dot.googlecode.com/svn/branches/stable-1.5.0/t/TestComplete/Type2.pm $
# $Revision: 51 $
# $Date: 2007-11-03 22:00:06 +0000 (Sat, 03 Nov 2007) $
package TestComplete::Type2;
use base 'TestComplete::Base';

use strict;
use warnings;

use Class::Dot qw(-new :std);

property in_type2 => isa_String();

my $CLOSURE;

sub BUILD {
    my ($self, $options_ref) = @_;

    $CLOSURE = 'built with Type2';

    return;
}

sub get_closure {
    return $CLOSURE;
}

1;

__END__


# Local Variables:
#   mode: cperl
#   cperl-indent-level: 4
#   fill-column: 78
# End:
# vim: expandtab tabstop=4 shiftwidth=4 shiftround
